home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / drive error demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  54 lines
  1. 10 poke 56,56:poke 55,0:clr:poke 53280,6:poke53281,6:print chr$(147)
  2. 20 cs$=chr$(147):rv$=chr$(18)
  3. 30 print chr$(14)chr$(8):cr$=chr$(13)
  4. 40 dv=peek(186):if dv<8 then dv=8
  5. 50 poke 147,0:sys57812"scrn tile(680).o",dv,1:sys62631
  6. 60 sys 680
  7. 70 print chr$(5):input"    [196]isk drive device number (8-15)";dv$
  8. 80 print:printrv$"  [204]oading files....[207]ne moment please... "
  9. 90 dv=val(dv$):if dv$="" then end
  10. 100 gosub 320:rem disk drive check
  11. 110 rem sys57812"italics.set",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  12. 120 rem poke53272,31
  13. 130 sys57812"display font.o",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  14. 140 dv=val(dv$):ck=0:cr$=chr$(13):cd$=chr$(17):hm$=chr$(19):sp$=chr$(32)
  15. 150 gosub 430:rem title screen
  16. 160 poke 53272,22:sys 680
  17. 170 poke 214,12:print:print"[208]ress [196] for a demonstration of [201][210][209]      "
  18. 180 print"[196][210][201][214][197] [212][207][206][197].[207] or [209] to exit to [194][193][211][201][195].     ":q$=chr$(34)
  19. 190 b$="":get b$:if b$="" then190 
  20. 200 if b$="d" or b$="[196]" then 240
  21. 210 if b$="q" or b$="[209]" then 230
  22. 220 goto 190
  23. 230 poke 55,0:poke 56,160:sys 64738:end
  24. 240 print cs$cd$cd$cd$"load"q$"irq drive tone.o"q$","dv",1"
  25. 250 print cd$cd$cd$cd$"new"
  26. 260 print cd$cd$"sys 820"
  27. 270 print cd$cd$"load"q$"[199]azette's [199]reat!"q$","dv
  28. 280 print cd$cd$cd$cd$"for t=1 to 10000:next:forx=0to24:poke54272+x,0:next"
  29. 290 print cd$cd$"[193]fter demonstration, enter sys 823":for t=1 to 5000:next
  30. 300 for i=1 to 5:poke 630+i,13:next:poke 198,5:print hm$
  31. 310 poke 55,0:poke 56,160:end
  32. 320 close15:open 15,dv,15:close15
  33. 330 if st=0 then370 
  34. 340 printcd$"[212]urn your disk drive on and press"
  35. 350 print" [210][197][212][213][210][206]."
  36. 360 b$="":get b$:if b$<>cr$ then360 
  37. 370 open15,dv,15,"i":input#15,er:close15
  38. 380 if er=0 then return
  39. 390 printcd$"[208]ut a diskette in your disk drive"
  40. 400 print"and press [210][197][212][213][210][206]."
  41. 410 b$="":get b$:if b$<>cr$ then410 
  42. 420 goto370 
  43. 430 data "[199]azette presents:","[201]nterrupt [196]riven","[196]rive [197]rror [212]one [199]enerator"
  44. 440 data "[208]ress any key to continue"
  45. 450 for x=1 to 4:read au$(x):next
  46. 460 sys 680
  47. 470 sys 52736
  48. 480 poke 214,12:print:printspc(20-len(au$(1))/2)au$(1):print
  49. 490 printspc(20-len(au$(2))/2)au$(2):print
  50. 500 printspc(20-len(au$(3))/2)au$(3)
  51. 510 poke214,22:print:printspc(20-len(au$(4))/2)au$(4)
  52. 520 get a$:if a$="" then520 
  53. 530 return
  54.